home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Symbol.p < prev    next >
Text File  |  2004-01-31  |  702b  |  25 lines
  1. pTempVar <- <primitive 110 4 >
  2. <primitive 112 pTempVar 1  " numArgs " \
  3.   #( #[ 16r50 16r20 16rFA 16r02 16r5A 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " asString " \
  7.   #( #[ 16r20 16rFA 16r01 16r5D 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " printString " \
  11.   #( #[ 16r20 16rFA 16r01 16r5C 16rF3 16rF5] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 4  " == " \
  15.   #( #[ 16r20 16r21 16rFA 16r02 16r06 16rF7 16r07 16r20 16r21 16rFA 16r02 \
  16.         16r5B 16rF8 16r02 16rF2 16r5C 16rF3 16rF5] \
  17.     #(  )) >
  18.  
  19. <primitive 98 #Symbol \
  20.   <primitive 97 #Symbol #Object #AmigaTalk:General/Symbol.st \
  21.    #(  ) \
  22.    #( #numArgs #asString #printString #==  ) \
  23.   pTempVar 2 4 > #ordinary >
  24.  
  25.